<%@Page Language="VB"%>
<%@Import Namespace="System.Drawing" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>

<script language="JScript">
<!--
function ShowHTMLContent() {
  var strURL = 'http://<% = Request.ServerVariables("SERVER_NAME") %><% = Request.Path %>?<% = Request.QueryString %>';
  var strDisplay = new String;
  var objHTTP = new ActiveXObject("microsoft.XMLHTTP")
  objHTTP.open('GET', strURL, false);
  objHTTP.send();
  var strReply = objHTTP.responseText;
  var intStart = strReply.indexOf('<!' + '--start-->') + 12;
  var intEnd = strReply.indexOf('<!' + '--end-->');
  if ((intStart > 0) && (intEnd > intStart))
    var strDisplay = strReply.substring(intStart, intEnd);
  document.all['outHTML'].innerText = strDisplay + ' ';
}
function SetCheck(strCheckboxName) {
  document.all[strCheckboxName].checked = true;
}
//-->
</script>

<!-- #include file="style.inc" -->
</head>
<body bgcolor="#ffffff" onload="ShowHTMLContent()">
<!--------------------------------------------------------------------------->
<span class="heading">ASP:Panel Control</span><p />

<!--start-->
<ASP:Panel id="MyControl" Text="My Panel" runat="server">Some text inside the Panel control</ASP:Panel>
<!--end-->

<p />
<div id="outError" runat="server" />
<font face="Courier New" size="2"><div style="background-color:gainsboro; padding-left:10px" id="outHTML">Fetching HTML content...</div></font>

<form runat="server" method="get">
<table border="0">
<tr><td nowrap="nowrap"><input type="checkbox" id="chkAccessKey" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">AccessKey =</td><td nowrap="nowrap"><input type="text" size="1" id="txtAccessKey" runat="server" onkeypress="SetCheck('chkAccessKey')" /></td>
<td nowrap="nowrap">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;  &nbsp;</td>
<td nowrap="nowrap"><input type="checkbox" id="chkBackColor" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">BackColor =</td><td nowrap="nowrap"><input type="text" size="15" id="txtBackColor" runat="server" onkeypress="SetCheck('chkBackColor')" /></td></tr>
<tr><td nowrap="nowrap"><input type="checkbox" id="chkBackImageUrl" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">BackImageUrl =</td><td nowrap="nowrap"><select id="selBackImageUrl" size="1" runat="server" onchange="SetCheck('chkBackImageUrl')">
<option></option><option>Brick.gif</option><option>Marble.gif</option><option>Speckled.gif</option><option>Textured.gif</option><option>Weave.gif</option></select></td><td nowrap="nowrap"></td>
<td nowrap="nowrap"><input type="checkbox" id="chkBorderColor" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">BorderColor =</td><td nowrap="nowrap"><input type="text" size="15" id="txtBorderColor" runat="server" onkeypress="SetCheck('chkBorderColor')" /></td></tr>
<tr><td nowrap="nowrap"><input type="checkbox" id="chkBorderStyle" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">BorderStyle =</td><td nowrap="nowrap"><select id="selBorderStyle" size="1" runat="server" onchange="SetCheck('chkBorderStyle')">
<option value="4">BorderStyle.Solid</option><option value="3">BorderStyle.Dashed</option><option value="2">BorderStyle.Dotted</option><option value="5">BorderStyle.Double</option>
<option value="6">BorderStyle.Groove</option><option value="8">BorderStyle.Inset</option><option value="1">BorderStyle.None</option><option value="0">BorderStyle.NotSet</option>
<option value="9">BorderStyle.Outset</option><option value="7">BorderStyle.Ridge</option></select></td><td nowrap="nowrap"></td>
<td nowrap="nowrap"><input type="checkbox" id="chkBorderWidth" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">BorderWidth =</td><td nowrap="nowrap"><input type="text" size="2" id="txtBorderWidth" runat="server" onkeypress="SetCheck('chkBorderWidth')" />px</td></tr>
<tr><td nowrap="nowrap"><input type="checkbox" id="chkEnabled" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">Enabled =</td><td nowrap="nowrap"><select id="selEnabled" size="1" runat="server" onchange="SetCheck('chkEnabled')"><option>True</option><option>False</option></select></td><td nowrap="nowrap"></td>
<td nowrap="nowrap"><input type="checkbox" id="chkForeColor" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">ForeColor =</td><td nowrap="nowrap"><input type="text" size="15" id="txtForeColor" runat="server" onkeypress="SetCheck('chkForeColor')" /></td></tr>
<tr><td nowrap="nowrap"><input type="checkbox" id="chkHeight" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">Height =</td><td nowrap="nowrap"><input type="text" size="2" id="txtHeight" runat="server" onkeypress="SetCheck('chkHeight')" />px</td><td nowrap="nowrap"></td>
<td nowrap="nowrap"><input type="checkbox" id="chkHorizontalAlign" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">HorizontalAlign =</td><td nowrap="nowrap"><select id="selHorizontalAlign" size="1" runat="server" onchange="SetCheck('chkHorizontalAlign')">
<option value="2">HorizontalAlign.Center</option><option value="4">HorizontalAlign.Justify</option><option value="1">HorizontalAlign.Left</option><option value="0">HorizontalAlign.NotSet</option><option value="3">HorizontalAlign.Right</option></select></td></tr>
<tr><td nowrap="nowrap"></td><td align="right" nowrap="nowrap">ID =</td><td nowrap="nowrap"><% = MyControl.ID %></td><td nowrap="nowrap"></td>
<td nowrap="nowrap"><input type="checkbox" id="chkToolTip" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">ToolTip =</td><td nowrap="nowrap"><input type="text" size="20" id="txtToolTip" runat="server"  onkeypress="SetCheck('chkToolTip')"/></td></tr>
<tr><td nowrap="nowrap"><input type="checkbox" id="chkVisible" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">Visible =</td><td nowrap="nowrap"><select id="selVisible" size="1" runat="server" onchange="SetCheck('chkVisible')"><option>True</option><option>False</option></select></td><td nowrap="nowrap"></td>
<td nowrap="nowrap"><input type="checkbox" id="chkWidth" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">Width =</td><td nowrap="nowrap"><input type="text" size="2" id="txtWidth" runat="server" onkeypress="SetCheck('chkWidth')" />px</td></tr>
<tr><td nowrap="nowrap"><input type="checkbox" id="chkWrap" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">Wrap =</td><td nowrap="nowrap"><select id="selWrap" size="1" runat="server" onchange="SetCheck('chkWrap')"><option>True</option><option>False</option></select></td><td nowrap="nowrap"></td>
<td nowrap="nowrap"><input type="button" Value="Reset" onclick="javascript:location.href='http://<% = Request.ServerVariables("SERVER_NAME") %><% = Request.Path %>'"></td><td nowrap="nowrap"></td><td nowrap="nowrap"><input type="submit" Value="Update" runat="server" /></td></tr>
</table>
</form>

<script language="VB" runat="server">
Sub Page_Load()

outError.innerHTML = ""

Try

   If IsPostBack() Then

      If chkAccessKey.Checked Then MyControl.AccessKey = txtAccessKey.Value
      If chkBackColor.Checked Then MyControl.BackColor = Color.FromName(txtBackColor.Value)
      If chkBackImageUrl.Checked Then MyControl.BackImageUrl = selBackImageUrl.Value
      If chkBorderColor.Checked Then MyControl.BorderColor = Color.FromName(txtBorderColor.Value)
      If chkBorderStyle.Checked Then MyControl.BorderStyle = selBorderStyle.Value
      If chkBorderWidth.Checked Then MyControl.BorderWidth = Unit.Pixel(txtBorderWidth.Value)
      If chkEnabled.Checked Then MyControl.Enabled = selEnabled.Value
      If chkForeColor.Checked Then MyControl.ForeColor = Color.FromName(txtForeColor.Value)
      If chkHeight.Checked Then MyControl.Height = Unit.Pixel(txtHeight.Value)
      If chkHorizontalAlign.Checked Then MyControl.HorizontalAlign = selHorizontalAlign.Value
      If chkToolTip.Checked Then MyControl.ToolTip = txtToolTip.Value
      If chkVisible.Checked Then MyControl.Visible = selVisible.Value
      If chkWidth.Checked Then MyControl.Width = Unit.Pixel(txtWidth.Value)
      If chkWrap.Checked Then MyControl.Wrap = selWrap.Value

   End If

   txtAccessKey.Value = MyControl.AccessKey
   txtBackColor.Value = MyControl.BackColor.Name
   selBackImageUrl.Value = MyControl.BackImageUrl
   txtBorderColor.Value = MyControl.BorderColor.Name
   selBorderStyle.Value = MyControl.BorderStyle
   txtBorderWidth.Value = MyControl.BorderWidth.Value
   selEnabled.Value = MyControl.Enabled
   txtForeColor.Value = MyControl.ForeColor.Name
   txtHeight.Value = MyControl.Height.Value
   selHorizontalAlign.Value = MyControl.HorizontalAlign
   txtToolTip.Value = MyControl.ToolTip
   selVisible.Value = MyControl.Visible
   txtWidth.Value = MyControl.Width.Value
   selWrap.Value = MyControl.Wrap

Catch objError As Exception

   outError.innerHTML = "<b>* Error</b>: " & objError.Message & "<p />"

End Try

End Sub
</script>

<!--------------------------------------------------------------------------->
<!-- #include file="foot.inc" -->
</body>
</html>
